adapted from Jean’s simulation
looking at “unwrapping” of cycle in velocity based embedding and effect of changing distance weights

Remove some transient cells

Simulate lower dimensional representation of future transcriptional state

Try different embeddings

## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"

#Behavior of weights with noise

## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"

#Behavior of weights with k

## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"
## [1] "Done finding neighbors"
## [1] "calculating weights"
## Warning in vattrs[[name]][index] <- value: number of items to replace is not a
## multiple of replacement length
## [1] "Done making graph"